$PBExportHeader$uo_dw_menu_rb_ventana.sru
$PBExportComments$Control dw para ser usado en el Menu Popup de las Ventanas.
forward
global type uo_dw_menu_rb_ventana from uo_dw
end type
end forward

global type uo_dw_menu_rb_ventana from uo_dw
end type
global uo_dw_menu_rb_ventana uo_dw_menu_rb_ventana

type variables
Integer	fila_act = 0, fila_nueva = 0, altura_fila = 0



end variables

forward prototypes
public subroutine uof_set_altura_fila (integer alt)
end prototypes

public subroutine uof_set_altura_fila (integer alt);altura_fila = alt
end subroutine

event clicked;call super::clicked;if row > 0 Then 
   /* Solo ejecuto el Evento si la Opcion del Menu esta habilitada */
	If Upper(This.GetItemString(row,'enabled')) = 'N' Then Return 1

	Parent.Event dynamic Trigger ue_ejecuta_evento(This.GetItemString(row,'evento'))
End If

end event

event processenter;Integer row

row = This.GetRow()
if row > 0 Then 
   /* Solo ejecuto el Evento si la Opcion del Menu esta habilitada */
	If Upper(This.GetItemString(row,'enabled')) = 'N' Then Return 1
	Parent.Event dynamic Trigger ue_ejecuta_evento(This.GetItemString(row,'evento'))
End If

Return 1
end event

event rowfocuschanged;call super::rowfocuschanged;SelectRow(0,False)
IF currentrow > 0 Then
	If GetItemString(currentrow,'enabled') = 'S' Then SelectRow(currentrow,TRUE) 
END IF



end event

event losefocus;call super::losefocus;/* Muestro la Descripcion en el MicroHelp*/
guo_app.uof_GetMdi().SetMicroHelp('')


end event

event getfocus;call super::getfocus;Integer row 

row = This.GetRow()
If row > 0 Then
	/* Muestro la Descripcion en el MicroHelp*/
	guo_app.uof_GetMdi().SetMicroHelp( This.GetItemString(row,'descripcion'))
End If

end event

event ue_pbm_mousemove;call super::ue_pbm_mousemove;if ypos <= 0 or altura_fila <= 0 Then Return
fila_nueva = Integer(ypos / altura_fila) + 1
if fila_nueva <> fila_actual Then
	If fila_nueva > 0 and Not IsNull(fila_nueva) and fila_nueva <= RowCount() Then
		This.SetRow(fila_nueva)
	End If
End If
end event

event ue_cambio_fila;call super::ue_cambio_fila;Integer row 
String desc
row = This.GetRow()
If row > 0 Then
	fila_actual = row
	desc = This.GetItemString(row,'descripcion')
	/* Muestro la Descripcion en el MicroHelp*/
	guo_app.uof_GetMdi().SetMicroHelp(desc)
End If

end event

